#!/usr/bin/perl

package MozComics::MySQL::DBH;

use strict;
use warnings;
use DBI;
use DBD::mysql;

# returns a database handle for the MozComics database
sub get {
	my $databaseName = ''; # TODO
	my $user = ''; # TODO
	my $password = ''; # TODO

	my $host = 'localhost';
	my $port = 3306;

	my $dsn = "dbi:mysql:$databaseName:$host:$port";
	return DBI->connect($dsn, $user, $password)
	       or die "Unable to connect: $DBI::errstr\n";
}

1;

